10 PRINTCHR$(147)"LOADING AND CHECKING THE DATA...":J=4864
20 FORB=0TO11:READA:IFA<0ORA>255THEN40
30 POKEJ+B,A:X=X+A:NEXTB:READA:IFA=XTHEN50
40 PRINT:PRINT"ERROR IN DATA LINE:"PEEK(66)*256+PEEK(65):END
50 X=0:J=J+12:IFJ<5213THEN20
60 POKE208,0:POKE5213,0:A$="Y":B$=A$:C$="D":D$="DISK":D=8:PRINTCHR$(147)
70 INPUT"DO YOU WANT AUTOMATIC SAVES (Y/N)";A$:PRINT:IFA$="Y"THEN90
80 PRINT"NO AUTOMATIC SAVES...":GOTO150
90 POKE5213,1:INPUT"DISK OR TAPE (D/T)";C$:IFC$<>"D"THEND=1:D$="TAPE"
100 POKE5214,D:D$=D$+" DRIVE":PRINT:INPUT"FILE NUMBER (0-99)";N
110 N$=RIGHT$(STR$(N),2):IFN<10THENN$=CHR$(48)+CHR$(N+48)
120 F$="BACKUP":PRINT:INPUT"FILENAME";F$:F$=N$+LEFT$(F$,14):L=LEN(F$)
130 POKE5215,L:FORJ=1TOL:POKE5215+J,ASC(MID$(F$,J,1)):NEXTJ:PRINT
140 PRINT"SAVING DEVICE ** "D$:PRINT"STARTING WITH ** "F$
150 PRINT:INPUT"IS THIS CORRECT (Y/N)";B$:IFB$<>"Y"THEN60
160 POKE770,198:POKE771,77:SYS4864:END
170 DATA32,58,20,169,41,162,19,236,3,3,208,4,955
180 DATA169,198,162,77,141,2,3,142,3,3,224,19,1143
190 DATA208,7,32,125,255,79,78,0,96,32,125,255,1292
200 DATA79,70,70,0,96,162,0,134,251,189,0,2,1053
210 DATA240,19,201,48,144,9,201,58,176,5,133,251,1485
220 DATA232,208,238,134,252,165,251,208,3,76,198,77,2042
230 DATA169,0,166,235,164,236,133,253,133,254,142,47,1932
240 DATA20,140,48,20,24,101,22,69,254,230,254,24,1206
250 DATA101,23,69,254,170,230,254,164,252,185,0,2,1704
260 DATA133,251,201,34,208,6,165,253,73,255,133,253,1965
270 DATA201,32,208,4,165,253,240,8,138,24,101,251,1625
280 DATA69,254,170,44,198,254,230,252,164,251,208,213,2307
290 DATA138,41,240,74,74,74,74,24,105,65,141,88,1138
300 DATA20,138,41,15,24,105,65,141,89,20,32,79,769
310 DATA20,189,85,20,240,6,32,210,255,232,208,245,1742
320 DATA174,47,20,172,48,20,24,32,240,255,173,93,1298
330 DATA20,240,27,165,161,201,212,176,4,165,160,240,1771
340 DATA17,32,65,20,238,32,208,238,1,214,32,225,1322
350 DATA255,208,6,32,49,20,76,198,77,232,208,242,1603
360 DATA200,208,239,32,66,193,173,95,20,162,96,160,1644
370 DATA20,32,189,255,169,0,170,32,104,255,169,0,1395
380 DATA174,94,20,168,32,186,255,169,45,174,16,18,1351
390 DATA172,17,18,32,216,255,162,1,189,96,20,168,1346
400 DATA200,152,201,58,144,2,169,48,157,96,20,201,1448
410 DATA48,208,3,202,16,234,32,49,20,141,0,2,955
420 DATA76,183,77,58,59,32,65,20,206,32,208,206,1222
430 DATA1,214,169,0,170,168,76,219,255,32,79,20,1403
440 DATA169,26,141,0,214,173,0,214,16,251,96,162,1462
450 DATA0,142,0,255,96,19,18,32,32,32,32,146,804
460 DATA0,1,0,0,65,72,79,89,33,0,0,0,339